home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / getsiaddr.sirexx < prev    next >
Text File  |  1997-08-28  |  401b  |  20 lines
  1. /* Show SI's task address. */
  2.  
  3.  
  4. options results
  5.  
  6. address 'INSPECTOR.1'
  7.  
  8. /* Select the task list. */
  9. GetDisplay ; currentdisplay = result
  10.  
  11. If currentdisplay ~= 17 Then SetDisplay 17
  12.  
  13. /* Select SI's task (it's always the first one. */
  14. SelectNode Num 0
  15.  
  16. /* Get column 0's content (task address) and display it. */
  17.  
  18. GetNodeInfo 0 ; address = result
  19. Say 'SysInspector''s task is located at '||address||'.'
  20.